(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     36236,        947]
NotebookOptionsPosition[     34278,        879]
NotebookOutlinePosition[     34692,        897]
CellTagsIndexPosition[     34649,        894]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5411\:91cf\:64cd\:4f5c", "Title",
 CellFrame->{{0, 0}, {0.5, 0}},
 CellChangeTimes->{{3.817272715997003*^9, 3.8172727298913927`*^9}, 
   3.8183821952766333`*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\:5411\:91cf\:7279\:6027", "Subsection"]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8171881484031253`*^9, 3.817188151767462*^9}, {
   3.817265278368291*^9, 3.8172652842058744`*^9}, {3.817272514377843*^9, 
   3.8172725444388485`*^9}, {3.8172729027636776`*^9, 
   3.8172729078431854`*^9}, {3.8172730016785684`*^9, 3.8172730105894594`*^9}, 
   3.817273173602759*^9, {3.818382202502356*^9, 3.818382209232029*^9}},
 TextAlignment->Center],

Cell[TextData[StyleBox["\:573a\:666f\:5728\:4e09\:7ef4\:573a\:666f\:6709\:5404\
\:79cd\:5411\:91cf\:5b9a\:4e49\:ff0c\:6240\:6709\:7684\:64cd\:4f5c\:5b9e\:9645\
\:4e0a\:90fd\:662f\:5728\:505a\:4e09\:7ef4\:5411\:91cf\:8fd0\:7b97\:3002\:4e8c\
\:7ef4\:7684\:5411\:91cf\:548c\:4e09\:7ef4\:89c4\:5219\:76f8\:540c\:ff0c\:8fd9\
\:91cc\:4ee5\:4e8c\:7ef4\:5411\:91cf\:4e3a\:4f8b\:4ecb\:7ecd\:5411\:91cf\:7684\
\:8fd0\:7b97\:3002\n\:5411\:91cf\:7531\:8d77\:70b9\:548c\:7ec8\:70b9\:5750\
\:6807\:5b9a\:4e49", "Subsubtitle",
 FontWeight->"Bold"]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.817272541574562*^9, 3.817273173602759*^9, {3.817701962221754*^9, 
   3.8177019639839306`*^9}, {3.8183822765317583`*^9, 3.818382362193323*^9}, {
   3.8183824207711806`*^9, 3.8183824377698803`*^9}},
 TextAlignment->Center]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"vecA", ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1.4"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Arrow", "[", "vecA", "]"}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8183822593060355`*^9, 3.818382263980503*^9}, {
   3.8183823681169157`*^9, 3.818382405328636*^9}, {3.8183824614492483`*^9, 
   3.81838250857596*^9}, {3.818382725325633*^9, 3.8183827349335938`*^9}, {
   3.818382777410841*^9, 3.8183827898250823`*^9}, 3.8183829302911277`*^9}],

Cell[BoxData[
 GraphicsBox[ArrowBox[{{0.5, 1}, {2, 1.4}}],
  Axes->True,
  ImageSize->{147.99999999999972`, Automatic},
  PlotRange->{{-0.2, 2}, {-0.2, 2}}]], "Output",
 CellChangeTimes->{3.818382938495948*^9, 3.8489707935812283`*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "\:5411\:91cf\:8fd8\:6709\:4e00\:79cd\:8868\:793a\:65b9\:5f0f\:5c31\:662f", 
    RowBox[{"(", 
     RowBox[{"\:8d77\:70b9", "-", "\:7ec8\:70b9"}], ")"}]}], "\:ff0c", 
   "\:6700\:7ec8\:662f\:4e00\:4e2a\:5750\:6807\:5f62\:5f0f", "\:3002", 
   "\:5b83\:8868\:793a\:628a\:5411\:91cf\:7684\:8d77\:70b9\:79fb\:5230\:539f\
\:70b9", "\:ff0c", 
   "\:8fd9\:4e48\:505a\:5e76\:4e0d\:5f71\:54cd\:4ed6\:4eec\:7684\:8fd0\:7b97\
\:7ed3\:679c", "\:ff0c", 
   "\:4f46\:76f8\:6bd4\:7b2c\:4e00\:79cd\:8868\:793a\:4f1a\:4e22\:5931\:4f4d\
\:7f6e\:4fe1\:606f", "\:3002", 
   SubscriptBox[
    "\:5982\:679c\:4e0d\:60f3\:4e22\:5931\:4f4d\:7f6e\:90a3\:4e48\:9700\:8981\
\:8bb0\:4f4f\:7b2c\:4e00\:4e2a\:5411\:91cf\:7684\:8d77\:70b9", "1"], "\:ff0c", 
   RowBox[{"\:8fd0\:7b97\:5b8c\:6210\:540e\:505a", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "+", 
       SubscriptBox["\:8d77\:70b9", "1"]}], ",", 
      RowBox[{"\:8ba1\:7b97\:7ed3\:679c", "+", 
       SubscriptBox["\:8d77\:70b9", "1"]}]}], ")"}]}], "\:3002"}], 
  "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.8183838182209115`*^9, 3.818383825265616*^9}, {
  3.818383942206309*^9, 3.8183840226313505`*^9}, {3.818385324050868*^9, 
  3.818385399457868*^9}, {3.818385439989868*^9, 3.8183854900478683`*^9}, {
  3.8183855302968683`*^9, 3.818385572267868*^9}},
 TextAlignment->Center],

Cell[BoxData[
 StyleBox["\:5411\:91cf\:52a0\:6cd5", "Subsubsection"]], "Input",
 CellChangeTimes->{{3.8183843550815926`*^9, 3.818384360598144*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"VecAdd", "[", 
    RowBox[{"vec1_", ",", "vec2_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"vec1", "+", "vec2"}], "\[IndentingNewLine]", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"VecAdd", "[", 
           RowBox[{"vecAFromOrigin", ",", "p"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183926207580867`*^9, 3.8183926228182926`*^9}, {3.848972746063552*^9, 
  3.8489727510180473`*^9}, {3.8489736489211044`*^9, 3.848973669345147*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {-0.32599999999999996`, 
    0.8500000000000001}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {219., 225.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, 
           $CellContext`VecAdd[$CellContext`vecAFromOrigin, \
$CellContext`p$$]}]}, Axes -> True, PlotRange -> {{-1, 2}, {-1, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {260., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8183843840594897`*^9, 3.8183856984359236`*^9, {3.818385795186598*^9, 
   3.81838586942002*^9}, {3.818385909190997*^9, 3.818385961246202*^9}, 
   3.8183904898520174`*^9, 3.818392623622373*^9, 3.848970796164487*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\:5411\:91cf\:51cf\:6cd5", "Subsubsection"]], "Input",
 CellChangeTimes->{{3.8183843550815926`*^9, 3.818384360598144*^9}, 
   3.8183894934223843`*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"VecMinus", "[", 
    RowBox[{"vec1_", ",", "vec2_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"vec1", "-", "vec2"}], "\[IndentingNewLine]", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], "+", "p"}], ",", 
          RowBox[{
           RowBox[{"VecMinus", "[", 
            RowBox[{"vecAFromOrigin", ",", "p"}], "]"}], "+", "p"}]}], "}"}], 
        "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183895011471567`*^9, 3.8183895132793703`*^9}, {3.818390103320368*^9, 
  3.8183901073547716`*^9}, {3.818390391141147*^9, 3.818390397407774*^9}, {
  3.8183925760226135`*^9, 3.8183925980858192`*^9}, {3.8489736785510674`*^9, 
  3.848973698187031*^9}, {3.8489737712763386`*^9, 3.8489737767068815`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {0, 1}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {219., 225.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 
            0} + $CellContext`p$$, \
$CellContext`VecMinus[$CellContext`vecAFromOrigin, $CellContext`p$$] + \
$CellContext`p$$}]}, Axes -> True, PlotRange -> {{-1, 2}, {-1, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {260., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8183843840594897`*^9, 3.8183856984359236`*^9, {3.818385795186598*^9, 
   3.81838586942002*^9}, {3.818385909190997*^9, 3.818385961246202*^9}, 
   3.8183895145514975`*^9, 3.818390407216755*^9, {3.8183925813051414`*^9, 
   3.818392599196931*^9}, 3.848971302391123*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\:5411\:91cf\:7684\:4e58\:6cd5", "Subsubsection"]], "Input",
 CellChangeTimes->{{3.818386047413818*^9, 3.8183860546995463`*^9}, 
   3.818388561205172*^9, 3.818388629739025*^9, {3.818388718551905*^9, 
   3.818388721874237*^9}},
 TextAlignment->Center],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Mathematica\:4e2d\:5411\:91cf\:7684\:4e58\:6cd5\:67093\:79cd", "\:ff0c", 
   "Times", 
   RowBox[{
    StyleBox[
     RowBox[{"(", "*"}]], 
    RowBox[{
     RowBox[{"\:6216\:7a7a\:683c", ")"}], "Cross", 
     RowBox[{"(", "\[Cross]", ")"}], "Dot", 
     RowBox[{"(", ".", ")"}]}]}]}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.8183887508601356`*^9, 3.8183887744544945`*^9}, {
   3.818388823384387*^9, 3.818388907550803*^9}, {3.8183889526523128`*^9, 
   3.8183890273007765`*^9}, 3.818389557031745*^9, 3.818389616717713*^9, 
   3.8183897523682766`*^9, {3.818392281025117*^9, 3.818392282884303*^9}},
 TextAlignment->Center],

Cell[BoxData[
 StyleBox[
  RowBox[{"Times", ":", "\:5411\:91cf\:548c\:6570\:5b57\:76f8\:4e58"}], 
  "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.81838877711176*^9, 3.81838881671072*^9}, {
   3.818388850782127*^9, 3.818388854664515*^9}, {3.8183888924592943`*^9, 
   3.8183889346475124`*^9}, 3.818388974288476*^9, 3.8183896210731483`*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Times", "[", 
           RowBox[{"vecAFromOrigin", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8183896447405148`*^9, 3.818389742025242*^9}, {
  3.8183900803940754`*^9, 3.8183900936874046`*^9}, {3.8489737015933714`*^9, 
  3.8489737192741394`*^9}, {3.8489737607172832`*^9, 3.8489737638625975`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 0.368, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 0, 2}}, Typeset`size$$ = {450., {221., 228.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$33744$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$33744$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin $CellContext`n$$}]}, Axes -> 
        True, PlotRange -> {{-0.2, 2}, {-0.2, 2}}], 
      "Specifications" :> {{$CellContext`n$$, 0, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {275., 282.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.818389734473487*^9, 3.8183897434123807`*^9}, 
   3.818390086696706*^9, 3.818390413998433*^9, {3.8183916424422646`*^9, 
   3.8183916670787287`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Cross", ":", "\:5411\:91cf\:548c\:5411\:91cf\:76f8\:4e58"}], ",", 
   "\:53ef\:89c6\:5316\:9700\:8981\:5728\:4e09\:7ef4\:4e2d"}], 
  "Subsubtitle"]], "Input",
 CellChangeTimes->{
  3.818389762563296*^9, {3.8183915464456663`*^9, 3.818391554540476*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vec3dFromOrigin", ":=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "vec3dFromOrigin"}],
          "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"Cross", "[", 
           RowBox[{"vec3dFromOrigin", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], 
        "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183900585188885`*^9, 3.8183900673807745`*^9}, {3.818390428505883*^9, 
  3.818390505859618*^9}, {3.818390555163548*^9, 3.8183905664806795`*^9}, {
  3.818391410945118*^9, 3.8183914519982224`*^9}, {3.818391560166038*^9, 
  3.8183917094159613`*^9}, {3.8183917527132907`*^9, 3.8183918643214507`*^9}, {
  3.818392026651682*^9, 3.818392088688885*^9}, {3.81839212434245*^9, 
  3.818392125653581*^9}, {3.818392173814397*^9, 3.8183922378608007`*^9}, {
  3.848973724448656*^9, 3.848973757573969*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 
    0.5100000000000002, $CellContext`y$$ = -0.46999999999999975`, \
$CellContext`z$$ = 3., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 0}, -3, 3}, {{
       Hold[$CellContext`y$$], 1}, -3, 3}, {{
       Hold[$CellContext`z$$], 0}, -3, 3}}, Typeset`size$$ = {
    450., {241., 248.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$3045$$ = 
    0, $CellContext`y$3046$$ = 0, $CellContext`z$3047$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`x$$ = 0, $CellContext`y$$ = 
        1, $CellContext`z$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$3045$$, 0], 
        Hold[$CellContext`y$$, $CellContext`y$3046$$, 0], 
        Hold[$CellContext`z$$, $CellContext`z$3047$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{Arrowheads -> Small, 
         Arrow[{{0, 0, 0}, $CellContext`vec3dFromOrigin}], Red, 
         Arrow[{{0, 0, 
           0}, {$CellContext`x$$, $CellContext`y$$, $CellContext`z$$}}], 
         Green, 
         Arrow[{{0, 0, 0}, 
           
           Cross[$CellContext`vec3dFromOrigin, {$CellContext`x$$, \
$CellContext`y$$, $CellContext`z$$}]}]}, Axes -> True, 
        PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}}], 
      "Specifications" :> {{{$CellContext`x$$, 0}, -3, 
         3}, {{$CellContext`y$$, 1}, -3, 3}, {{$CellContext`z$$, 0}, -3, 3}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {324., 331.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.8489708443033004`*^9, 3.8489708584447145`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"Dot", ":", "\:5411\:91cf\:548c\:5411\:91cf\:76f8\:4e58"}], 
  "Subsubtitle"]], "Input",
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"Dot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], ",", "p"}], "]"}]}], "}"}]}], 
         "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8183923116641808`*^9, 3.8183923401770315`*^9}, {
  3.818392379528966*^9, 3.8183924205490675`*^9}, {3.8183924594999623`*^9, 
  3.8183924991329255`*^9}, {3.848973784510665*^9, 3.8489737986850824`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {1.1400000000000001`, 0.98}, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {224., 231.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, {1, 0}}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, {0, 
            Dot[{1, 0}, $CellContext`p$$]}}]}, Axes -> True, 
        PlotRange -> {{-2, 2}, {-2, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {266., 273.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.8183923088979034`*^9, 3.818392314189433*^9}, 
   3.8183923535433683`*^9, {3.8183923835793715`*^9, 3.8183924212651396`*^9}, {
   3.8183924740524178`*^9, 3.8183924999340057`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\:6807\:51c6\:5316", "Subsubtitle"]], "Input",
 CellChangeTimes->{3.8183927959546046`*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Normalize", "[", "p", "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.818392817481757*^9, 3.818392819975006*^9}, {
  3.818392850939102*^9, 3.8183928559696054`*^9}, {3.8183931068256884`*^9, 
  3.8183931338183875`*^9}, {3.8489738019644103`*^9, 3.848973820034217*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {1, 1}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {1, 1}}, Automatic}}, Typeset`size$$ = {
    450., {224., 231.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {1, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, 
           Normalize[$CellContext`p$$]}]}, Axes -> True, 
        PlotRange -> {{-2, 2}, {-2, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {1, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {266., 273.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.818392856843693*^9, {3.8183931232273283`*^9, 3.8183931345454607`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\:516c\:5f0f", "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.848971326584544*^9, 3.8489713287417593`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Times", "[", 
  RowBox[{"a", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Cross", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8183923116641808`*^9, 3.8183923401770315`*^9}, {
  3.818392379528966*^9, 3.8183924205490675`*^9}, {3.8183924594999623`*^9, 
  3.8183924991329255`*^9}, {3.8489713610139933`*^9, 3.8489714169125834`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", " ", "x"}], ",", 
   RowBox[{"a", " ", "y"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.848971430776969*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "x"}], "+", 
  RowBox[{"b", " ", "y"}]}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.8489714307809696`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "c"}], " ", "y"}], "+", 
    RowBox[{"b", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"c", " ", "x"}], "-", 
    RowBox[{"a", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], " ", "x"}], "+", 
    RowBox[{"a", " ", "y"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.8489714307849703`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1584, 826},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 193, 4, 123, "Title"],
Cell[CellGroupData[{
Cell[798, 30, 503, 8, 48, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[1304, 40, 842, 13, 69, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[2183, 58, 963, 27, 57, "Input"],
Cell[3149, 87, 234, 5, 200, "Output"]
}, Open  ]],
Cell[3398, 95, 1428, 31, 73, "Input"],
Cell[4829, 128, 171, 3, 47, "Input"],
Cell[CellGroupData[{
Cell[5025, 135, 2383, 63, 542, "Input"],
Cell[7411, 200, 2031, 39, 547, "Output"]
}, Open  ]],
Cell[9457, 242, 199, 4, 47, "Input"],
Cell[CellGroupData[{
Cell[9681, 250, 2584, 67, 497, "Input"],
Cell[12268, 319, 2089, 41, 547, "Output"]
}, Open  ]],
Cell[14372, 363, 275, 5, 47, "Input"],
Cell[14650, 370, 666, 16, 42, "Input"],
Cell[15319, 388, 363, 7, 42, "Input"],
Cell[CellGroupData[{
Cell[15707, 399, 1636, 43, 335, "Input"],
Cell[17346, 444, 1873, 37, 577, "Output"]
}, Open  ]],
Cell[19234, 484, 323, 8, 42, "Input"],
Cell[CellGroupData[{
Cell[19582, 496, 2972, 74, 425, "Input"],
Cell[22557, 572, 2483, 49, 675, "Output"]
}, Open  ]],
Cell[25055, 624, 147, 4, 42, "Input"],
Cell[CellGroupData[{
Cell[25227, 632, 1908, 54, 375, "Input"],
Cell[27138, 688, 1932, 38, 559, "Output"]
}, Open  ]],
Cell[29085, 729, 139, 3, 42, "Input"],
Cell[CellGroupData[{
Cell[29249, 736, 1456, 40, 330, "Input"],
Cell[30708, 778, 1758, 36, 559, "Output"]
}, Open  ]],
Cell[32481, 817, 157, 3, 42, "Input"],
Cell[CellGroupData[{
Cell[32663, 824, 734, 19, 147, "Input"],
Cell[33400, 845, 213, 6, 37, "Output"],
Cell[33616, 853, 190, 5, 37, "Output"],
Cell[33809, 860, 441, 15, 37, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

